﻿<%
'****************************************
' xnxf_CMS 子菜单
'****************************************
Function xnxf_CMS_SubMenu(id)
	Dim aryName,aryPath,aryFloat,aryInNewWindow,i
	aryName=Array("首页","运行")
	aryPath=Array("main.asp","main.asp?act=run")
	aryFloat=Array("m-left","m-left")
	aryInNewWindow=Array(False,False)
	For i=0 To Ubound(aryName)
		xnxf_CMS_SubMenu=xnxf_CMS_SubMenu & MakeSubMenu(aryName(i),aryPath(i),aryFloat(i)&IIf(i=id," m-now",""),aryInNewWindow(i))
	Next
End Function
%>